00100		TITLE PAPER
00200		ENTRY DOG
00300	IENN=[110]
00400	ISPC=[201004020100]
00500	IZRO=[0]
00600	NONE=[1]
00700	DOG:	0
00800		MOVE 1,0(16)
00900		SOJ 1,
01000		MOVEM 1,NEL#
01100		MOVE 3,@2(16)
01200		AOJ 3,
01300		MOVE 2,@1(16)
01400		MOVE 5,4(16)
01500		SOJ 5,
01600		MOVEM 5,NEX#
01700		ADD 5,2
01800		HRLZM 3,@5
01900		MOVE 3,@2(16)
02000		MOVE 7,6(16)
02100		SOJ 7,
02200		MOVEM 7,NWOR#
02300		SETZ 7,
02400		MOVE 6,5(16)
02500		SOJ 6,
02600		MOVEM 6,IEXP#
02700		SETZ 1,
02800	KOP:	SETZ 5,
02900	AIOP:	AOJ 1,
03000	TSTG:	CAMLE 1,IENN
03100		JRST RETUR
03200		MOVE 2,NEL
03300		ADD 2,1
03400		MOVE 8,@2
03500		CAMN 8,ISPC
03600		JRST AIOP
03700		SETZ 6,
03800	AKNO:	AOJ 6,
03900		CAMLE 6,@3(16)
04000		JRST NEWR
04100		MOVE 2,NEL
04200		ADD 2,1
04300		MOVE 8,@2
04400		MOVE 4,NWOR
04500		ADD 4,6
04600		CAME 8,@4
04700		JRST AKNO
04800		MOVE 7,NONE
04900		CAML 8,IZRO
05000		JRST NFLET
05100	ICEL:	MOVE 10,1	
05200		ADD 10,7
05300		CAMLE 10,IENN
05400		JRST SKMO
05500		MOVE 2,NEL
05600		ADD 2,10
05700		MOVE 8,@2
05800		CAMN 8,ISPC
05900		JRST NFLET
06000		CAML 8,IZRO
06100		JRST NFLET
06200		MOVE 11,7
06300		ADD 11,6
06400		CAMLE 11,@3(16)
06500		JRST NEWR
06600		MOVE 4,NWOR
06700		ADD 4,11
06800		CAME 8,@4
06900		JRST AKNO
07000		AOJ 7,
07100		JRST ICEL
07200	SKMO:	SOJ 7,
07300	NFLET:	AOJ 3,
07400		MOVE 12,6
07500		IMULI 12,144
07600		ADD 12,7
07700		MOVE 4,IEXP
07800		ADD 4,3
07900		MOVEM 12,@4
08000		ADD 1,7
08100		JRST TSTG
08200	IADI:	AOJ 1,
08300	NEWR:	AOJ 5,
08400		MOVE 13,@3(16)
08500		ADD 13,5
08600		MOVE 2,NEL
08700		ADD 2,1
08800		MOVE 8,@2
08900		MOVE 4,NWOR
09000		ADD 4,13
09100		MOVEM 8,@4
09200		CAML 8,IZRO
09300		JRST IATE
09400		CAMN 1,IENN
09500		JRST IATE
09600		MOVE 2,NEL
09700		ADD 2,1
09800		AOJ 2,
09900		MOVE 8,@2
10000		CAMN 8,ISPC
10100		JRST IATE
10200		CAMGE 8,IZRO
10300		JRST IADI
10400	IATE:	AOJ 3,
10500		MOVE 9,@3(16)
10600		AOJ 9,
10700		IMULI 9,144
10800		ADD 9,5
10900		MOVE 4,IEXP
11000		ADD 4,3
11100		MOVEM 9,@4
11200		ADDM 5,@3(16)
11300		JRST KOP
11400	RETUR:	MOVE 2,NEX
11500		ADD 2,@1(16)
11600		HRRM 3,@2
11700		MOVEM 3,@2(16)
11800		JRA 16,6(16)
11900	
12000		ENTRY JOKES
12100	JOKES:	0
12200		MOVE 3,[201004020100]
12300		SETZ 4,
12400		MOVE 5,1(16)
12500	TOP:	CAME 3,@5
12600		JRST NEXT
12700		AOJ 4,
12800		CAMN 4,IENN
12900		JRA 16,2(16)
13000		AOJ 5,
13100		JRST TOP
13200	NEXT:	SETOM @0(16)
13300		JRA 16,2(16)
13400	
13500		ENTRY NNDO
13600	NNDO:	MOVE 2,@0(16)
13700		HLRZM 2,@1(16)
13800		AOJ 2,
13900		HRRZM 2,@2(16)
14000		JRA 16,3(16)
14100		END